home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 March / 64er_Magazin_86-03_1986_Markt__Technik_de.d64 / view picture (.txt) < prev   
Encoding:
Commodore BASIC  |  1986-01-01  |  1.5 KB  |  39 lines
  1. 0 rem **************************
  2. 1 rem *      view picture      *
  3. 2 rem *      ------------      *
  4. 3 rem *                        *
  5. 4 rem *      written 1985      *
  6. 5 rem *           by           *
  7. 6 rem *                        *
  8. 7 rem *     r.eichenberger     *
  9. 8 rem *                        *
  10. 9 rem **************************
  11. 10 :
  12. 11 poke53280,11:poke53281,12:rem bildschirmfarben aendern
  13. 15 fort=0to27:reada:poke828+t,a:next:rem einlesen des masch.prg nach $033c
  14. 20 print"[147][144][169]                                      [223][146]";
  15. 30 print"            view pic  (8192)            [146]";
  16. 40 print"[223]                                      [146][169]";:rem bildschirmmaske
  17. 50 print"[151]filename: ";:open1,0:input#1,na$:close1:rem eingabe des namens
  18. 60 ifna$=""thengoto120:rem wenn kein name, dann bild zeigen
  19. 100 print"[147]l[207]"+chr$(34)+na$+chr$(34)+",8,1":print"g[207]120"
  20. 110 poke631,19:poke632,13:poke633,13:poke198,3:end:rem laden des prg's
  21. 120 print"[147]":v=53248:rem bildschirm loeschen
  22. 130 pokev+17,peek(v+17) or (8+3)*16:rem grafik einschalten
  23. 140 pokev+22,peek(v+22)and255-16:rem multicolor ausschalten
  24. 150 pokev+24,peek(v+24)or8:rem grafik bei $2000
  25. 155 sys828:rem maschinen-prg starten (farben von $4000 nach $0400
  26. 160 geta$:ifa$=""then160:rem warte auf taste
  27. 161 print"[147]":rem bildschirm loeschen
  28. 170 pokev+17,peek(v+17)and255-6*16:rem grafik ausschalten
  29. 180 pokev+22,peek(v+22)and255-1*16:rem multicolor ausschalten
  30. 190 pokev+24,peek(v+24)and255-8:rem grafik wieder bei $1000
  31. 200 input"[147]noch ein bild:[160][j/n]";a$
  32. 210 ifa$<>"j"thenend
  33. 220 goto20:rem noch ein bild, dann zur zeile 20
  34. 225 :
  35. 226 rem *** maschinenprg fuer farbe
  36. 227 :
  37. 230 data162,0,160,64,134,95,132,96,162,232,160,67,134,90,132,91,162,232,160
  38. 240 data7,134,88,132,89,32,191,163,96
  39.